home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 02.ki (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  688b  |  31 lines
  1. 1 rem ********************************
  2. 2 rem *   irrgaerten und maeuse i    *
  3. 3 rem * <c> 1985 bei michael nickles *
  4. 4 rem ********************************
  5. 5 poke53280,0:poke53281,0:print"[147]maus i[146]"
  6. 10 ri$(1)="links"
  7. 11 ri$(2)="geradeaus"
  8. 12 ri$(3)="rechts"
  9. 20 dimm(20)
  10. 100 rem hauptprogramm ----------------
  11. 101 :
  12. 110 gosub1000
  13. 120 print"ich finde keinen ausgang!":end
  14. 1000 rem rekursives up ---------------
  15. 1001 :
  16. 1005 i=0
  17. 1010 i=i+1
  18. 1015 print"kann ich ";ri$(i); " gehen (j/n)"
  19. 1020 inputbe$
  20. 1025 ifleft$(be$,1)="n"then1110
  21. 1030 m(v)=i
  22. 1050 print"ausgang gefunden (j/n)"
  23. 1055 inputbe$
  24. 1060 ifleft$(be$,1)="j"thenprint"geschafft !":end
  25. 1065 ifv=20thenprint"habe mich verirrt !":end
  26. 1070 v=v+1:gosub1000
  27. 1095 print"ausgang gefunden (j/n)"
  28. 1100 v=m(t)
  29. 1110 ifi=3thenreturn
  30. 1120 goto1010
  31.